********************************************************************************************************
********************************************************************************************************
* Replication file for "Low-Quality Seeds, Labor Supply and Economic Returns:Experimental Evidence from *
* Tanzania" By Bulte, Di Falco, Kassie and Vollenweider                                                  *
********************************************************************************************************

use "/Users/difalco/Dropbox/whole computer/Co-Authors/Erwin/RESTATS/REVISION_RESTATS/Replication files/data_TZ_RESTAT.dta"

global controls_harvest "x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12"
global controls_labor "x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x13"

**table 1**
reg harvest improved i.village $controls_harvest  if (group==1|group==2), rob
estimate store tab1_col3
reg crop_fail improved i.village $controls_harvest  if (group==1|group==2), rob
estimate store tab1_col6
reg early_labor improved i.village $controls_labor  if (group==1|group==2), rob
estimate store tab1_col9
esttab tab1_col3 tab1_col6 tab1_col9,drop(*village $controls_labor $controls_harvest) se ar2 replace star (* 0.10 ** 0.05 *** 0.01)

**table 2**
reg harvest improved i.village $controls_harvest if (group==3|group==4), rob
estimate store tab2_col3
reg crop_fail improved  i.village  $controls_harvest  if (group==3|group==4), rob
estimate store tab2_col6
reg early_labor improved  i.village $controls_labor if (group==3|group==4), rob
estimate store tab2_col9
esttab tab2_col3 tab2_col6 tab2_col9,drop(*village $controls_labor $controls_harvest) se ar2 replace star (* 0.10 ** 0.05 *** 0.01)

**table 3**
reg harvest d_uncertain i.village $controls_harvest if (group==1|group==3), rob
estimate store tab3_col3
reg crop_fail d_uncertain i.village $controls_harvest  if (group==1|group==3), rob
estimate store tab3_col6
reg early_labor improved d_uncertain i.village $controls_labor if (group==1|group==3), rob
estimate store tab3_col9
esttab tab3_col3 tab3_col6 tab3_col9,drop(*village $controls_labor $controls_harvest) se ar2 replace star (* 0.10 ** 0.05 *** 0.01)

**table 4**
reg harvest d_uncertain i.village $controls_harvest if (group==2|group==4), rob
estimate store tab4_col3
reg crop_fail  d_uncertain i.village $controls_harvest  if (group==2|group==4), rob
estimate store tab4_col6
reg early_labor d_uncertain i.village $controls_labor  if (group==2|group==4), rob
estimate store tab4_col9
esttab tab4_col3 tab4_col6 tab4_col9,drop(*village $controls_labor $controls_harvest) se ar2 replace star (* 0.10 ** 0.05 *** 0.01)

**table 5**

use "/Users/difalco/Dropbox/whole computer/Co-Authors/Erwin/RESTATS/REVISION_RESTATS/Replication files/purchase seeds.dta"

global controls_purchase "x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11"
global vill "vill1 vill2 vill3 vill4 vill5 vill6 vill7 vill8 vill9 vill10"

reg buy open $vill $controls_purchase,rob
estimate store tab5_col3
probit buy open  $controls_purchase $vill ,rob
estimate store tab5_col6
dprobit buy open  $controls_purchase $vill ,rob
esttab tab5_col3 tab5_col6,drop($controls_purchase $vill) se ar2 replace star (* 0.10 ** 0.05 *** 0.01)

